home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
UTILENUS
/
MARXMENU.LZH
/
MENUS.EXE
/
PULL.MNU
< prev
next >
Wrap
Text File
|
1990-01-14
|
3KB
|
192 lines
Comment
==============================================================
This menu doesn't actually run anything in it's present form.
It just shows what pull down menus look like.
==============================================================
EndComment
ClearScreen
PullMenu On
Procedure VerticalBox
SingleLineBox
BoxBorderColor Green Red
BoxInsideColor Grey Red
EndProc
BlockBox
Explode On
BoxHeaderColor Yellow Mag
BoxBorderColor Yellow Mag
BoxInsideColor Yellow Mag
DrawBox 16 17 48 7
Shadow Off
BoxBorderColor Green Blue
BoxInsideColor Yellow Blue
DrawBox 20 19 40 3
WriteCenter 'MarxMenu PullDown Demo'
Explode Off
BoxBorderColor Cyan Blue
BoxInsideColor Grey Blue
InverseColor Yellow LCyan
CapsColor LCyan Blue
BlankTime = 10
DoubleLineBox
DrawBox 2 2 79 3
Write ' File Window Block Search Print Macro Editing Quit'
UseArrows
OnKey 'Z'
EDIT PULL.MNU
OnKey 'F'
^File
OnKey 'W'
^SWindow
OnKey 'B'
^Block
OnKey 'S'
^Search
OnKey 'P'
^PrintM
OnKey 'M'
^Macro
OnKey 'E'
^Edit
OnKey 'Q'
^Quit
:File
VerticalBox
DrawBox 6 5 15 14
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Load'
Writeln ' File'
ClearLine 196
Writeln
Writeln ' Save'
Writeln ' Quitfile'
Writeln ' Next'
Writeln ' Prev'
Writeln ' Read'
Writeln ' Change name'
Writeln ' Write block'
Writeln ' OS shell'
Write ' Global file'
OnKey 'L'
:SWindow
VerticalBox
DrawBox 13 5 10 10
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Close'
Writeln ' Grow'
Writeln ' Split'
Writeln ' Next'
Writeln ' One'
Writeln ' Prev'
Writeln ' shRink'
Write ' Zoom'
OnKey 'R'
EDIT PULL.MNU
:Block
VerticalBox
DrawBox 22 5 20 9
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' mark block Begin'
Writeln ' mark block End'
Writeln ' Copy block'
Writeln ' Move block'
Writeln ' Delete block'
Writeln ' Unmark'
Write ' mark Line'
OnKey 'C'
:Search
VerticalBox
DrawBox 30 5 11 5
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Find'
Writeln ' Replace'
Write ' Again'
OnKey 'F'
:PrintM
VerticalBox
DrawBox 39 5 19 7
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' print All'
Writeln ' print Block'
Writeln ' send Formfeed'
Writeln ' set Left margin'
Write ' set Page size'
OnKey 'A'
:Macro
VerticalBox
DrawBox 47 5 16 5
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Macro record'
Writeln ' Read macro'
Write ' Write macro'
OnKey 'M'
:Edit
VerticalBox
DrawBox 55 5 17 8
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Add line'
Writeln ' Delete line'
Writeln ' Insert line'
Writeln ' Join line'
Writeln ' Split line'
Write ' Undelete line'
OnKey 'D'
:Quit
VerticalBox
DrawBox 62 5 18 4
InverseColor Yellow Mag
CapsColor Yellow Red
UseArrows
Writeln ' Quit all files'
Write ' eXit all file'
OnKey 'Q'